#!/usr/bin/perl -w
#$Source: Volumes://MATEOR/prlserverapi/hostname.pl$
#$Revision: 0.01-0a$
#$Date: May 20, 2012$
#---------
#PrlServerAPI Copyright Matthew Caswell, 2011
#---------

use strict;
use Storable;


unless ($#ARGV == 0) {
  die "usage: $0 <hostname>";
}

open FILE, ">psahost.rc" or die "Couldn't open hostname file $!";

print FILE "$ARGV[0]";

close FILE;
exit;
